﻿Public Class CCommon


    '***************************************************************************************
    '* 
    '* メッセージ設定
    '* 
    '***************************************************************************************
    Public Const CNS_MSG_001 As String = "従業員番号を読込んで下さい。"
    Public Const CNS_MSG_002 As String = "読込まれたコードは従業員番号ではありません。"
    Public Const CNS_MSG_003 As String = "読込まれたコードは出荷指示番号ではありません。"
    Public Const CNS_MSG_004 As String = "出荷指示番号を読み取って下さい。"
    Public Const CNS_MSG_005 As String = "通信を行っています。" & vbNewLine & "しばらくお待ちください..."
    Public Const CNS_MSG_006 As String = "サーバーへの接続に失敗しました。" & vbNewLine & "手動で注文番号を読み取りますか？"
    Public Const CNS_MSG_007 As String = "読込まれたコードは注文番号ではありません。"
    Public Const CNS_MSG_008 As String = "手動モードに切り替えます。" & vbNewLine & "注文番号を読み取って下さい。"
    Public Const CNS_MSG_009 As String = "注文番号を読み取って下さい。"
    Public Const CNS_MSG_010 As String = "マスターに品番が存在しません。" & vbNewLine & "リセットコードを読込んで下さい。"
    Public Const CNS_MSG_011 As String = "ラベルを読み取って下さい。"
    Public Const CNS_MSG_012 As String = "終了コードを読込んで下さい。"
    Public Const CNS_MSG_013 As String = "未完了の注文があります。" & vbNewLine & "終了してよろしいですか？"
    Public Const CNS_MSG_014 As String = "ラベル以外が読込まれました。" & vbNewLine & "リセットコードを読込んで下さい。"
    Public Const CNS_MSG_015 As String = "読込済みのラベルです。"
    Public Const CNS_MSG_016 As String = "対象ではないラベルが読込まれました。" & vbNewLine & "リセットコードを読込んで下さい。"
    Public Const CNS_MSG_017 As String = "同一のラベルが既に読込まれています。" & vbNewLine & "そのラベルは正しいですか？"
    Public Const CNS_MSG_018 As String = "エラーロック中です。" & vbNewLine & "リセットコードを読込んで下さい。"
    Public Const CNS_MSG_019 As String = "リセットコードを読み込んでください。"
    Public Const CNS_MSG_020 As String = "読込まれた出荷指示番号は既に完了しています。"
    Public Const CNS_MSG_021 As String = "対象ではない注文番号が読込まれました。"
    Public Const CNS_MSG_022 As String = "端数ラベルです。" & vbNewLine & "数量を入力して下さい。"
    Public Const CNS_MSG_023 As String = "読込済みの出荷指示番号です。"
    Public Const CNS_MSG_024 As String = "出荷指示番号が読込まれました。" & vbNewLine & "ラベル照合中は追加できません。"
    Public Const CNS_MSG_025 As String = "数量が一致しません。" & vbNewLine & "リセットコードを読込んで下さい。"
    Public Const CNS_MSG_026 As String = "対象の社内ラベルか終了コードを読込んで下さい。"
    Public Const CNS_MSG_027 As String = "注文番号が読込まれました。" & vbNewLine & "ラベル照合中は追加できません。"
    Public Const CNS_MSG_028 As String = "名札が読込まれました。" & vbNewLine & "ラベル照合中は交代できません。"
    Public Const CNS_MSG_029 As String = "名札が読込まれました。" & vbNewLine & "注文番号読込中は交代できません。"
    Public Const CNS_MSG_030 As String = "未出荷段取品は存在しません。"
    Public Const CNS_MSG_031 As String = "未出荷段取品情報を読み込んでいます。" & vbNewLine & "しばらくお待ちください..."
    Public Const CNS_MSG_032 As String = "サーバーへの接続に失敗しました。" & vbNewLine & "正しい出荷指示書ではありません。" & vbNewLine & vbNewLine & "手動で注文番号を読み取りますか？"
    Public Const CNS_MSG_033 As String = "サーバーへの接続に失敗しました。" & vbNewLine & "出荷指示書が無効です。" & vbNewLine & vbNewLine & "手動で注文番号を読み取りますか？"
    Public Const CNS_MSG_034 As String = "システムエラーが発生しました。" & vbNewLine & vbNewLine & "手動で注文番号を読み取りますか？"
    Public Const CNS_MSG_035 As String = "通信異常が発生しました。" & vbNewLine & vbNewLine & "手動で注文番号を読み取りますか？"
    Public Const CNS_MSG_036 As String = "対象外の出荷指示です。"
    Public Const CNS_MSG_037 As String = "終了処理を行っています。" & vbNewLine & "しばらくお待ちください..."
    Public Const CNS_MSG_038 As String = "ラベル照合が完了していません。" & vbNewLine & "リセットコードを読込んで下さい。"
    Public Const CNS_MSG_039 As String = "社内ラベルを読込んで下さい。"
    Public Const CNS_MSG_040 As String = "旧形式のマツダラベルです。" & vbNewLine & "社内ラベルを読込んで下さい。"
    Public Const CNS_MSG_041 As String = "サーバーへの接続に失敗しました。" & vbNewLine & "正しい社内納品書ではありません。"
    Public Const CNS_MSG_042 As String = "サーバーへの接続に失敗しました。" & vbNewLine & "社内納品書が無効です。"
    Public Const CNS_MSG_043 As String = "システムエラーが発生しました。"
    Public Const CNS_MSG_044 As String = "通信異常が発生しました。"
    Public Const CNS_MSG_045 As String = "取消対象のDNCラベルを読込んで下さい。"
    Public Const CNS_MSG_046 As String = "対象のラベルではありません。" & vbNewLine & "処理を中断します。"
    Public Const CNS_MSG_047 As String = "出荷指示情報が存在しません。" & vbNewLine & "処理を中断します。"
    Public Const CNS_MSG_048 As String = "最新のDNCラベルを読込んで下さい。"
    Public Const CNS_MSG_049 As String = "分割対象のDNCラベルを読込んで下さい。"
    Public Const CNS_MSG_050 As String = "下記の注文が登録できませんでした。"
    Public Const CNS_MSG_051 As String = "下記の出荷指示書が登録できませんでした。"
    Public Const CNS_MSG_052 As String = "サーバーへの接続に失敗しました。" & vbNewLine & "正しい統括コードではありません。"
    Public Const CNS_MSG_053 As String = "サーバーへの接続に失敗しました。" & vbNewLine & "統括コードが無効です。"
    Public Const CNS_MSG_054 As String = "システムエラーが発生しました。"
    Public Const CNS_MSG_055 As String = "通信異常が発生しました。"
    Public Const CNS_MSG_056 As String = "バーコードの登録に失敗しました。"
    Public Const CNS_MSG_057 As String = "読込済みの$1です。" & vbNewLine & vbNewLine & "日時：$2" & vbNewLine & "従業員：$3"
    Public Const CNS_MSG_058 As String = "入出庫処理では$1は使用できません。"
    Public Const CNS_MSG_059 As String = "端数ラベルです。" & vbNewLine & "変更前の数量を入力して下さい。"
    Public Const CNS_MSG_060 As String = "変更後の数量を入力して下さい。"
    Public Const CNS_MSG_061 As String = "対象外のコードです。"
    Public Const CNS_MSG_062 As String = "対象の現品ラベルを読込んでください。"
    Public Const CNS_MSG_063 As String = "下記の納品書は読込済みです。" & vbNewLine & vbNewLine & "$1"

    '***************************************************************************************
    '* 
    '* 色設定
    '* 
    '***************************************************************************************
    Public Shared COLOR_GREEN As System.Drawing.Color = Color.LawnGreen
    Public Shared COLOR_RED As System.Drawing.Color = Color.Red
    Public Shared COLOR_YELLOW As System.Drawing.Color = Color.Yellow
    Public Shared COLOR_WHITE As System.Drawing.Color = Color.White
    Public Shared COLOR_BLACK As System.Drawing.Color = Color.Black
    Public Shared COLOR_GRAY As System.Drawing.Color = Color.Silver
    Public Shared COLOR_BLUE As System.Drawing.Color = Color.Aqua

    '***************************************************************************************
    '* 
    '* 特殊コード設定
    '* 
    '***************************************************************************************
    Public Const CNS_END_LABEL As String = "ZXEND"
    Public Const CNS_RESET1 As String = "0000000000001"
    Public Const CNS_RESET2 As String = "0000000000002"
    Public Const CNS_RESET3 As String = "0000000000003"
    Public Const CNS_RESET4 As String = "0000000000004"
    Public Const CNS_END As String = "0000000000000"

    '***************************************************************************************
    '* 
    '* 各種区切りコード設定
    '* 
    '***************************************************************************************
    Public Const CNS_DELIMITER_SHIPORDER1 As String = "SH"
    Public Const CNS_DELIMITER_SHIPORDER2 As String = "-"
    Public Const CNS_DELIMITER_LABEL_FRACTION As String = "#"
    Public Const CNS_DELIMITER_LABEL_INOAC As String = "*"
    Public Const CNS_DELIMITER_LABEL_MAZDA1 As String = "*"
    Public Const CNS_DELIMITER_LABEL_MAZDA2 As String = "*"
    Public Const CNS_DELIMITER_LABEL_DNC1 As String = "@"
    Public Const CNS_DELIMITER_LABEL_DNC2 As String = "D"
    Public Const CNS_DELIMITER_LABEL_DNC3 As String = "M"
    Public Const CNS_DELIMITER_LABEL_INNER As String = "@"

    '***************************************************************************************
    '* 
    '* 各種ラベルコード設定
    '* 
    '***************************************************************************************

    Public Const LABEL_INOAC As Integer = 1
    Public Const LABEL_INNER As Integer = 2
    Public Const LABEL_DNC As Integer = 3
    Public Const LABEL_MAZDA As Integer = 4

    '***************************************************************************************
    '* 
    '* ユニークコード保持設定
    '* 
    '* 過去、何件までユニークコードを保持するか
    '* 
    '***************************************************************************************

    Public Const CNS_UNIQUECD_COUNT As Integer = 5000 ''ユニークコードを保持する数
    Public Const CNS_REPORTDATA_COUNT As Integer = 600 ''出荷指示情報を保持する数


    '***************************************************************************************
    '* 
    '* バーコードからのデータ抽出設定
    '* 
    '* 読取タイプ：
    '*              0=文字列の先頭から開始位置分右シフトしたポイント～文字数分右シフトしたポイント
    '*              1=文字列の後ろから開始位置分左シフトしたポイント～文字数分右シフトしたポイント
    '*              2=最初に出現する特定文字の後ろ～文字数分右シフトしたポイント
    '*              3=最後に出現する特定文字の後ろ～文字数分右シフトしたポイント
    '*              4=文字列の先頭から開始位置分右シフトしたポイント～最初に出現する特定文字
    '*              5=文字列の先頭から開始位置分右シフトしたポイント～最後に出現する特定文字
    '*              6=最初に出現する特定文字の後ろ～文字列の最後
    '*              7=最後に出現する特定文字の後ろ～文字列の最後
    '*              8=文字列の後ろから開始位置分左シフトしたポイント～最初に出現する特定文字
    '*              9=文字列の後ろから開始位置分左シフトしたポイント～最後に出現する特定文字
    '*              10=文字列の先頭から開始位置分右シフトしたポイント～文字列の後ろから文字数分左シフトしたポイント
    '* 
    '***************************************************************************************

    ''抽出対象のタイプ設定
    Public Enum EnumGetString
        SHP_REPORT_CD
        SHP_ORDER_CNT
        SHP_ROW_CD
        SHP_STRAT_NO
        SHP_PAGE_NO
        SHP_DATE
        ODR_ORDER_CD
        ODR_ORDER_QTY
        ODR_ITEM_KEY
        ODR_LABEL_TYPE
        ODR_ROW_NUM
        ODR_ROW_CD
        ODR_ROW_NO
        LBL_IN_ITEM_CD
        LBL_IN_UNIQUE_CD
        LBL_IN_QTY
        LBL_I_ITEM_CD
        LBL_I_UNIQUE_CD
        LBL_I_QTY
        LBL_D_ORDER_CD
        LBL_D_ITEM_KEY
        LBL_D_ORDER_QTY
        LBL_D_ISINMAZDA
        LBL_M_ITEM_CD
        LBL_M_ORDER_CD
        LBL_ID_REPORT_CD
        SHP_GROUP_CD
    End Enum

    ''出荷指示番号
    ''------------------------------------------
    ''<帳票番号>
    Public Const CNS_SHPRPTCD_TYPE As Integer = 0 ''読取タイプ
    Public Const CNS_SHPRPTCD_INDEX As Integer = 3 ''開始位置
    Public Const CNS_SHPRPTCD_LENGTH As Integer = 13 ''文字数
    Public Const CNS_SHPRPTCD_CHAR As String = "" ''特定文字

    ''<RowCD>
    Public Const CNS_SHPROWCD_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_SHPROWCD_INDEX As Integer = 5 ''開始位置
    Public Const CNS_SHPROWCD_LENGTH As Integer = 2 ''文字数
    Public Const CNS_SHPROWCD_CHAR As String = "" ''特定文字

    ''<注文番号数>
    Public Const CNS_SHPROWCNT_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_SHPROWCNT_INDEX As Integer = 3 ''開始位置
    Public Const CNS_SHPROWCNT_LENGTH As Integer = 1 ''文字数
    Public Const CNS_SHPROWCNT_CHAR As String = "" ''特定文字

    ''<行開始番号>
    Public Const CNS_SHPROWSTA_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_SHPROWSTA_INDEX As Integer = 2 ''開始位置
    Public Const CNS_SHPROWSTA_LENGTH As Integer = 2 ''文字数
    Public Const CNS_SHPROWSTA_CHAR As String = "" ''特定文字

    ''<ページ番号>
    Public Const CNS_SHPPAGENO_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_SHPPAGENO_INDEX As Integer = 7 ''開始位置
    Public Const CNS_SHPPAGENO_LENGTH As Integer = 2 ''文字数
    Public Const CNS_SHPPAGENO_CHAR As String = "" ''特定文字

    ''<発行日>
    Public Const CNS_SHPDATE_TYPE As Integer = 0 ''読取タイプ
    Public Const CNS_SHPDATE_INDEX As Integer = 5 ''開始位置
    Public Const CNS_SHPDATE_LENGTH As Integer = 6 ''文字数
    Public Const CNS_SHPDATE_CHAR As String = "" ''特定文字

    ' ''<コントロールフラグ>
    'Public Const CNS_SHPCTL_TYPE As Integer = 1 ''読取タイプ
    'Public Const CNS_SHPCTL_INDEX As Integer = 7 ''開始位置
    'Public Const CNS_SHPCTL_LENGTH As Integer = 2 ''文字数
    'Public Const CNS_SHPCTL_CHAR As String = "" ''特定文字

    ''注文番号
    ''------------------------------------------
    ''<注文番号>
    Public Const CNS_ODRCD_TYPE As Integer = 10 ''読取タイプ
    Public Const CNS_ODRCD_INDEX As Integer = 1 ''開始位置
    Public Const CNS_ODRCD_LENGTH As Integer = 10 ''文字数
    Public Const CNS_ODRCD_CHAR As String = "" ''特定文字

    ''<注文数量>
    Public Const CNS_ODRQTY_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_ODRQTY_INDEX As Integer = 10 ''開始位置
    Public Const CNS_ODRQTY_LENGTH As Integer = 3 ''文字数
    Public Const CNS_ODRQTY_CHAR As String = "" ''特定文字

    ''<品番キー>
    Public Const CNS_ITMKEY_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_ITMKEY_INDEX As Integer = 7 ''開始位置
    Public Const CNS_ITMKEY_LENGTH As Integer = 3 ''文字数
    Public Const CNS_ITMKEY_CHAR As String = "" ''特定文字

    ''<ラベルタイプ>
    Public Const CNS_ODRTYP_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_ODRTYP_INDEX As Integer = 4 ''開始位置
    Public Const CNS_ODRTYP_LENGTH As Integer = 1 ''文字数
    Public Const CNS_ODRTYP_CHAR As String = "" ''特定文字

    ''<RowNum>
    Public Const CNS_ROWNUM_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_ROWNUM_INDEX As Integer = 3 ''開始位置
    Public Const CNS_ROWNUM_LENGTH As Integer = 3 ''文字数
    Public Const CNS_ROWNUM_CHAR As String = "" ''特定文字

    ''<RowNumのハイフン前>
    Public Const CNS_ROWNUM1_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_ROWNUM1_INDEX As Integer = 3 ''開始位置
    Public Const CNS_ROWNUM1_LENGTH As Integer = 1 ''文字数
    Public Const CNS_ROWNUM1_CHAR As String = "" ''特定文字

    ''<RowNumのハイフン後>
    Public Const CNS_ROWNUM2_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_ROWNUM2_INDEX As Integer = 2 ''開始位置
    Public Const CNS_ROWNUM2_LENGTH As Integer = 2 ''文字数
    Public Const CNS_ROWNUM2_CHAR As String = "" ''特定文字

    ''社内ラベル
    ''------------------------------------------
    ''<アイテムコード>
    Public Const CNS_LABEL_IN_ITM_TYPE As Integer = 5 ''読取タイプ
    Public Const CNS_LABEL_IN_ITM_INDEX As Integer = 1 ''開始位置
    Public Const CNS_LABEL_IN_ITM_LENGTH As Integer = 0 ''文字数
    Public Const CNS_LABEL_IN_ITM_CHAR As String = CNS_DELIMITER_LABEL_INNER ''特定文字

    ''<ユニークコード>
    Public Const CNS_LABEL_IN_UNQ_TYPE As Integer = 3 ''読取タイプ
    Public Const CNS_LABEL_IN_UNQ_INDEX As Integer = 0 ''開始位置
    Public Const CNS_LABEL_IN_UNQ_LENGTH As Integer = 4 ''文字数
    Public Const CNS_LABEL_IN_UNQ_CHAR As String = CNS_DELIMITER_LABEL_INNER ''特定文字

    ''<入数>
    Public Const CNS_LABEL_IN_QTY_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_LABEL_IN_QTY_INDEX As Integer = 2 ''開始位置
    Public Const CNS_LABEL_IN_QTY_LENGTH As Integer = 2 ''文字数
    Public Const CNS_LABEL_IN_QTY_CHAR As String = CNS_DELIMITER_LABEL_INNER ''特定文字

    ''INOACラベル
    ''------------------------------------------
    ''<アイテムコード>
    Public Const CNS_LABEL_I_ITM_TYPE As Integer = 5 ''読取タイプ
    Public Const CNS_LABEL_I_ITM_INDEX As Integer = 1 ''開始位置
    Public Const CNS_LABEL_I_ITM_LENGTH As Integer = 0 ''文字数
    Public Const CNS_LABEL_I_ITM_CHAR As String = CNS_DELIMITER_LABEL_INOAC ''特定文字

    ''<ユニークコード>
    Public Const CNS_LABEL_I_UNQ_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_LABEL_I_UNQ_INDEX As Integer = 6 ''開始位置
    Public Const CNS_LABEL_I_UNQ_LENGTH As Integer = 4 ''文字数
    Public Const CNS_LABEL_I_UNQ_CHAR As String = CNS_DELIMITER_LABEL_INOAC ''特定文字

    ''<入数>
    Public Const CNS_LABEL_I_QTY_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_LABEL_I_QTY_INDEX As Integer = 2 ''開始位置
    Public Const CNS_LABEL_I_QTY_LENGTH As Integer = 2 ''文字数
    Public Const CNS_LABEL_I_QTY_CHAR As String = CNS_DELIMITER_LABEL_INOAC ''特定文字

    ''DNCラベル
    ''------------------------------------------
    ''<注文番号>
    Public Const CNS_LABEL_D_ODR_TYPE As Integer = 8 ''読取タイプ
    Public Const CNS_LABEL_D_ODR_INDEX As Integer = 7 ''開始位置
    Public Const CNS_LABEL_D_ODR_LENGTH As Integer = 0 ''文字数
    Public Const CNS_LABEL_D_ODR_CHAR As String = CNS_DELIMITER_LABEL_DNC1 ''特定文字

    ''<注文数量>
    Public Const CNS_LABEL_D_ODRQTY_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_LABEL_D_ODRQTY_INDEX As Integer = 7 ''開始位置
    Public Const CNS_LABEL_D_ODRQTY_LENGTH As Integer = 3 ''文字数
    Public Const CNS_LABEL_D_ODRQTY_CHAR As String = "" ''特定文字

    ''<品番キー>
    Public Const CNS_LABEL_D_ITMKEY_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_LABEL_D_ITMKEY_INDEX As Integer = 4 ''開始位置
    Public Const CNS_LABEL_D_ITMKEY_LENGTH As Integer = 3 ''文字数
    Public Const CNS_LABEL_D_ITMKEY_CHAR As String = "" ''特定文字

    ''<マツダラベル有無>
    Public Const CNS_LABEL_D_INM_TYPE As Integer = 1 ''読取タイプ
    Public Const CNS_LABEL_D_INM_INDEX As Integer = 1 ''開始位置
    Public Const CNS_LABEL_D_INM_LENGTH As Integer = 1 ''文字数
    Public Const CNS_LABEL_D_INM_CHAR As String = "" ''特定文字

    ''MAZDAラベル(未使用：ステートに抽出ロジック)
    ''------------------------------------------
    ''<アイテムコード>
    Public Const CNS_LABEL_M_ITM_TYPE As Integer = 5 ''読取タイプ
    Public Const CNS_LABEL_M_ITM_INDEX As Integer = 1 ''開始位置
    Public Const CNS_LABEL_M_ITM_LENGTH As Integer = 0 ''文字数
    Public Const CNS_LABEL_M_ITM_CHAR As String = "" ''特定文字

    ''<注文番号>
    Public Const CNS_LABEL_M_ODR_TYPE As Integer = 8 ''読取タイプ
    Public Const CNS_LABEL_M_ODR_INDEX As Integer = 1 ''開始位置
    Public Const CNS_LABEL_M_ODR_LENGTH As Integer = 0 ''文字数
    Public Const CNS_LABEL_M_ODR_CHAR As String = "" ''特定文字

    ''社内納品書
    ''------------------------------------------
    ''<帳票番号>
    Public Const CNS_LABEL_ID_RPT_TYPE As Integer = 0 ''読取タイプ
    Public Const CNS_LABEL_ID_RPT_INDEX As Integer = 4 ''開始位置
    Public Const CNS_LABEL_ID_RPT_LENGTH As Integer = 13 ''文字数
    Public Const CNS_LABEL_ID_RPT_CHAR As String = "" ''特定文字

    ''統括レポートコード
    ''------------------------------------------
    ''<統括レポートコード>
    Public Const CNS_SHIP_GROUP_CD_TYPE As Integer = 10 ''読取タイプ
    Public Const CNS_SHIP_GROUP_CD_INDEX As Integer = 3 ''開始位置
    Public Const CNS_SHIP_GROUP_CD_LENGTH As Integer = 3 ''文字数
    Public Const CNS_SHIP_GROUP_CD_CHAR As String = "" ''特定文字

    '***************************************************************************************
    '* 
    '* 専用メソッド
    '* 
    '***************************************************************************************

    ''' <summary>
    ''' 文字列の抜出
    ''' </summary>
    ''' <param name="strData"></param>
    ''' <param name="barcodeType"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function TrimCode(ByVal strData As String, ByVal barcodeType As EnumGetString) As String
        Dim type As Integer
        Dim index As Integer
        Dim length As Integer
        Dim code As String = ""

        Select Case barcodeType
            Case EnumGetString.SHP_ORDER_CNT
                type = CNS_SHPROWCNT_TYPE
                index = CNS_SHPROWCNT_INDEX
                length = CNS_SHPROWCNT_LENGTH
                code = CNS_SHPROWCNT_CHAR
            Case EnumGetString.SHP_ROW_CD
                type = CNS_SHPROWCD_TYPE
                index = CNS_SHPROWCD_INDEX
                length = CNS_SHPROWCD_LENGTH
                code = CNS_SHPROWCD_CHAR
            Case EnumGetString.SHP_REPORT_CD
                type = CNS_SHPRPTCD_TYPE
                index = CNS_SHPRPTCD_INDEX
                length = CNS_SHPRPTCD_LENGTH
                code = CNS_SHPRPTCD_CHAR
            Case EnumGetString.SHP_STRAT_NO
                type = CNS_SHPROWSTA_TYPE
                index = CNS_SHPROWSTA_INDEX
                length = CNS_SHPROWSTA_LENGTH
                code = CNS_SHPROWSTA_CHAR
            Case EnumGetString.SHP_PAGE_NO
                type = CNS_SHPPAGENO_TYPE
                index = CNS_SHPPAGENO_INDEX
                length = CNS_SHPPAGENO_LENGTH
                code = CNS_SHPPAGENO_CHAR
            Case EnumGetString.SHP_DATE
                type = CNS_SHPDATE_TYPE
                index = CNS_SHPDATE_INDEX
                length = CNS_SHPDATE_LENGTH
                code = CNS_SHPDATE_CHAR
            Case EnumGetString.ODR_ITEM_KEY
                type = CNS_ITMKEY_TYPE
                index = CNS_ITMKEY_INDEX
                length = CNS_ITMKEY_LENGTH
                code = CNS_ITMKEY_CHAR
            Case EnumGetString.ODR_LABEL_TYPE
                type = CNS_ODRTYP_TYPE
                index = CNS_ODRTYP_INDEX
                length = CNS_ODRTYP_LENGTH
                code = CNS_ODRTYP_CHAR
            Case EnumGetString.ODR_ORDER_CD
                type = CNS_ODRCD_TYPE
                index = CNS_ODRCD_INDEX
                length = CNS_ODRCD_LENGTH
                code = CNS_ODRCD_CHAR
            Case EnumGetString.ODR_ORDER_QTY
                type = CNS_ODRQTY_TYPE
                index = CNS_ODRQTY_INDEX
                length = CNS_ODRQTY_LENGTH
                code = CNS_ODRQTY_CHAR
            Case EnumGetString.ODR_ROW_CD
                type = CNS_ROWNUM1_TYPE
                index = CNS_ROWNUM1_INDEX
                length = CNS_ROWNUM1_LENGTH
                code = CNS_ROWNUM1_CHAR
            Case EnumGetString.ODR_ROW_NO
                type = CNS_ROWNUM2_TYPE
                index = CNS_ROWNUM2_INDEX
                length = CNS_ROWNUM2_LENGTH
                code = CNS_ROWNUM2_CHAR
            Case EnumGetString.ODR_ROW_NUM
                type = CNS_ROWNUM_TYPE
                index = CNS_ROWNUM_INDEX
                length = CNS_ROWNUM_LENGTH
                code = CNS_ROWNUM_CHAR
            Case EnumGetString.LBL_IN_ITEM_CD
                type = CNS_LABEL_IN_ITM_TYPE
                index = CNS_LABEL_IN_ITM_INDEX
                length = CNS_LABEL_IN_ITM_LENGTH
                code = CNS_LABEL_IN_ITM_CHAR
            Case EnumGetString.LBL_IN_UNIQUE_CD
                type = CNS_LABEL_IN_UNQ_TYPE
                index = CNS_LABEL_IN_UNQ_INDEX
                length = CNS_LABEL_IN_UNQ_LENGTH
                code = CNS_LABEL_IN_UNQ_CHAR
            Case EnumGetString.LBL_IN_QTY
                type = CNS_LABEL_IN_QTY_TYPE
                index = CNS_LABEL_IN_QTY_INDEX
                length = CNS_LABEL_IN_QTY_LENGTH
                code = CNS_LABEL_IN_QTY_CHAR
            Case EnumGetString.LBL_I_ITEM_CD
                type = CNS_LABEL_I_ITM_TYPE
                index = CNS_LABEL_I_ITM_INDEX
                length = CNS_LABEL_I_ITM_LENGTH
                code = CNS_LABEL_I_ITM_CHAR
            Case EnumGetString.LBL_I_UNIQUE_CD
                type = CNS_LABEL_I_UNQ_TYPE
                index = CNS_LABEL_I_UNQ_INDEX
                length = CNS_LABEL_I_UNQ_LENGTH
                code = CNS_LABEL_I_UNQ_CHAR
            Case EnumGetString.LBL_I_QTY
                type = CNS_LABEL_I_QTY_TYPE
                index = CNS_LABEL_I_QTY_INDEX
                length = CNS_LABEL_I_QTY_LENGTH
                code = CNS_LABEL_I_QTY_CHAR
            Case EnumGetString.LBL_D_ORDER_CD
                type = CNS_LABEL_D_ODR_TYPE
                index = CNS_LABEL_D_ODR_INDEX
                length = CNS_LABEL_D_ODR_LENGTH
                code = CNS_LABEL_D_ODR_CHAR
            Case EnumGetString.LBL_D_ORDER_QTY
                type = CNS_LABEL_D_ODRQTY_TYPE
                index = CNS_LABEL_D_ODRQTY_INDEX
                length = CNS_LABEL_D_ODRQTY_LENGTH
                code = CNS_LABEL_D_ODRQTY_CHAR
            Case EnumGetString.LBL_D_ITEM_KEY
                type = CNS_LABEL_D_ITMKEY_TYPE
                index = CNS_LABEL_D_ITMKEY_INDEX
                length = CNS_LABEL_D_ITMKEY_LENGTH
                code = CNS_LABEL_D_ITMKEY_CHAR
            Case EnumGetString.LBL_D_ISINMAZDA
                type = CNS_LABEL_D_INM_TYPE
                index = CNS_LABEL_D_INM_INDEX
                length = CNS_LABEL_D_INM_LENGTH
                code = CNS_LABEL_D_INM_CHAR
            Case EnumGetString.LBL_M_ITEM_CD
                type = CNS_LABEL_M_ITM_TYPE
                index = CNS_LABEL_M_ITM_INDEX
                length = CNS_LABEL_M_ITM_LENGTH
                code = CNS_LABEL_M_ITM_CHAR
            Case EnumGetString.LBL_M_ORDER_CD
                type = CNS_LABEL_M_ODR_TYPE
                index = CNS_LABEL_M_ODR_INDEX
                length = CNS_LABEL_M_ODR_LENGTH
                code = CNS_LABEL_M_ODR_CHAR
            Case EnumGetString.LBL_ID_REPORT_CD
                type = CNS_LABEL_ID_RPT_TYPE
                index = CNS_LABEL_ID_RPT_INDEX
                length = CNS_LABEL_ID_RPT_LENGTH
                code = CNS_LABEL_ID_RPT_CHAR
            Case EnumGetString.SHP_GROUP_CD
                type = CNS_SHIP_GROUP_CD_TYPE
                index = CNS_SHIP_GROUP_CD_INDEX
                length = CNS_SHIP_GROUP_CD_LENGTH
                code = CNS_SHIP_GROUP_CD_CHAR
            Case Else
                Return ""
        End Select
        Dim strData2 As String = ""
        If strData.EndsWith(CNS_DELIMITER_LABEL_FRACTION) Then
            strData2 = strData.Substring(0, strData.Length - 1)
        Else
            strData2 = strData
        End If
        Return TrimCode(strData2, type, index, length, code)
    End Function

    ''' <summary>
    ''' 文字列の抜出
    ''' </summary>
    ''' <param name="strData"></param>
    ''' <param name="type"></param>
    ''' <param name="index"></param>
    ''' <param name="length"></param>
    ''' <param name="code"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function TrimCode(ByVal strData As String, ByVal type As Integer, ByVal index As Integer, ByVal length As Integer, ByVal code As String) As String
        Try
            Select Case type
                Case 0
                    Return strData.Substring(index - 1, length)
                Case 1
                    Return strData.Substring(strData.Length - index, length)
                Case 2
                    Return strData.Substring(strData.IndexOf(code) + 1, length)
                Case 3
                    Return strData.Substring(strData.LastIndexOf(code) + 1, length)
                Case 4
                    Return strData.Substring(index - 1, strData.IndexOf(code) - index + 1)
                Case 5
                    Return strData.Substring(index - 1, strData.LastIndexOf(code) - index + 1)
                Case 6
                    Return strData.Substring(strData.IndexOf(code) + 1, strData.Length - strData.IndexOf(code) - 1)
                Case 7
                    Return strData.Substring(strData.LastIndexOf(code) + 1, strData.Length - strData.LastIndexOf(code) - 1)
                Case 8
                    Return strData.Substring(strData.IndexOf(code) + 1, strData.Length - strData.IndexOf(code) - index - 1)
                Case 9
                    Return strData.Substring(strData.LastIndexOf(code) + 1, strData.Length - strData.LastIndexOf(code) - index - 1)
                Case 10
                    Return strData.Substring(index - 1, strData.Length - length)
                Case Else
                    Return ""
            End Select
        Catch ex As Exception

        End Try
        Return ""
    End Function
    ''' <summary>
    ''' マツダラベル品番抜出
    ''' </summary>
    ''' <param name="readText"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function getMazdaItemCd(ByVal readText As String) As String
        Dim returnValue As String = ""

        If readText.Length > 18 Then
            Select Case readText.Substring(1, 1)
                Case "A"
                    returnValue = readText.Substring(7, 10)
                Case "B"
                    returnValue = readText.Substring(7, 12)

            End Select
        End If
        returnValue = RTrim(returnValue)
        returnValue = Replace(returnValue, " ", "")
        Return returnValue
    End Function
    ''' <summary>
    ''' マツダラベル納品番号抜出
    ''' </summary>
    ''' <param name="readText"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function getMazdaOrderCd(ByVal readText As String) As String
        Dim returnValue As String = ""
        Select Case readText.Substring(1, 1)
            Case "A"
                If readText.Length > 24 Then
                    returnValue = readText.Substring(17, readText.Length - 17 - 2)
                End If
            Case "B"
                If readText.Length > 26 Then
                    returnValue = readText.Substring(19, readText.Length - 19 - 2)
                End If

        End Select
        returnValue = Trim(returnValue)
        Return returnValue

    End Function
    ''' <summary>
    ''' マツダラベル納品番号を加工
    ''' </summary>
    ''' <param name="readText"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function trimMazdaShipOrderOrderCd(ByVal readText As String) As String
        Dim returnValue As String = ""
        If readText.Length > 2 Then
            returnValue = readText.Substring(2, readText.Length - 2)
        Else
            returnValue = ""
        End If
        returnValue = Trim(returnValue)
        Return returnValue

    End Function
    ''' <summary>
    ''' マツダラベル納品番号を加工
    ''' </summary>
    ''' <param name="readText"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function trimMazdaLabelOrderCd(ByVal readText As String) As String
        Dim returnValue As String = ""
        If readText.Length = 9 Then
            ''新コード
            returnValue = readText.Substring(0, readText.Length - 4)
        ElseIf readText.Length > 2 Then
            ''旧コード
            returnValue = readText.Substring(2, readText.Length - 2)
        Else
            returnValue = ""
        End If
        returnValue = Trim(returnValue)
        Return returnValue

    End Function

    ''' <summary>
    ''' マツダラベルの新旧チェック
    ''' </summary>
    ''' <param name="orderCd"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function chkMazdaLabelType(ByVal orderCd As String) As String
        Dim returnValue As String = ""
        If orderCd.Length = 9 Then
            ''新コード
            returnValue = "new"
        ElseIf orderCd.Length > 2 Then
            ''旧コード
            returnValue = "old"
        Else
            returnValue = "old"
        End If
        returnValue = Trim(returnValue)
        Return returnValue

    End Function
    ''' <summary>
    ''' DNCラベル読込時　マツダラベルの有無
    ''' </summary>
    ''' <param name="readtext"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function getIsInMAZDA(ByVal readText As String) As Boolean
        Select Case readText
            Case "D"
                Return False
            Case "M"
                Return True
            Case Else
                Return False
        End Select
    End Function
    ''' <summary>
    ''' 対象となるRowCdを取得
    ''' </summary>
    ''' <param name="readText"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function getRowCd(ByVal readText As String) As String
        Dim returnValue As String = ""
        If readText.Length = 2 Then
            returnValue = readText.Substring(1, 1)
        End If
        Return returnValue
    End Function

    ''' <summary>
    ''' ラベルタイプを取得
    ''' </summary>
    ''' <param name="val"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function getIntLabelType(ByVal val As String) As Integer
        Dim returnValue As Integer
        Select Case val
            Case "I"
                returnValue = LABEL_INOAC
            Case "N"
                returnValue = LABEL_MAZDA
            Case "M"
                returnValue = LABEL_MAZDA
            Case "E"
                returnValue = LABEL_DNC
            Case "D"
                returnValue = LABEL_DNC
            Case Else
                returnValue = LABEL_INNER
        End Select
        Return returnValue
    End Function
    ''' <summary>
    ''' ラベルタイプによる色を取得
    ''' </summary>
    ''' <param name="val"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function getLabelColor(ByVal val As String) As Color
        Dim returnValue As Color
        Select Case val
            Case "I"
                returnValue = CCommon.COLOR_WHITE
            Case "N"
                returnValue = CCommon.COLOR_YELLOW
            Case "M"
                returnValue = CCommon.COLOR_YELLOW
            Case "E"
                returnValue = CCommon.COLOR_WHITE
            Case "D"
                returnValue = CCommon.COLOR_WHITE
            Case Else
                returnValue = CCommon.COLOR_WHITE
        End Select
        Return returnValue
    End Function

    ''' <summary>
    ''' ラベル名称を取得
    ''' </summary>
    ''' <param name="val"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function getStrLabelType(ByVal val As Integer) As String
        Dim returnValue As String = ""
        Select Case val
            Case LABEL_INOAC
                returnValue = "INOAC"
            Case LABEL_DNC
                returnValue = "DNC"
            Case LABEL_INNER
                returnValue = "社内"
            Case LABEL_MAZDA
                returnValue = "ﾏﾂﾀﾞ"
            Case Else
                returnValue = ""
        End Select
        Return returnValue
    End Function

    ''' <summary>
    ''' ラベル名称を取得　其の2
    ''' </summary>
    ''' <param name="val"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function getStrLabelType2(ByVal val As Integer) As String
        Dim returnValue As String = ""
        Select Case val
            Case LABEL_INOAC
                returnValue = "INO"
            Case LABEL_DNC
                returnValue = "DNC"
            Case LABEL_INNER
                returnValue = "DEF"
            Case LABEL_MAZDA
                returnValue = "MZD"
            Case Else
                returnValue = ""
        End Select
        Return returnValue
    End Function
    ''' <summary>
    ''' ラベル名称を取得　其の2
    ''' </summary>
    ''' <param name="val"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function getIntLabelType2(ByVal val As String) As Integer
        Dim returnValue As Integer = 0
        Select Case val
            Case "INO"
                returnValue = LABEL_INOAC
            Case "DNC"
                returnValue = LABEL_DNC
            Case "DEF"
                returnValue = LABEL_INNER
            Case "MZD"
                returnValue = LABEL_MAZDA
            Case Else
                returnValue = 0
        End Select
        Return returnValue
    End Function

    ''' <summary>
    ''' step4用　ラベルコードからラベル名称を取得する
    ''' </summary>
    ''' <param name="val"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function getLabelName(ByVal val As String) As String
        Dim returnValue As String = ""
        Select Case val
            Case "DL"
                returnValue = "納品書"
            Case "IN"
                returnValue = "現品ラベル"
            Case Else
                returnValue = "コード"
        End Select

        Return returnValue
    End Function

    ''' <summary>
    ''' 特殊コード名称を取得する
    ''' </summary>
    ''' <param name="val"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function getIrregularCdName(ByVal val As String) As String
        Dim returnValue As String = ""
        Select Case val
            Case CCommon.CNS_RESET1
                returnValue = "取消コード１"
            Case CCommon.CNS_RESET2
                returnValue = "取消コード２"
            Case CCommon.CNS_RESET3
                returnValue = "取消コード３"
            Case CCommon.CNS_RESET4
                returnValue = "取消コード４"
            Case Else
                returnValue = "不明コード"
        End Select

        Return returnValue

    End Function

    '***************************************************************************************
    '* 
    '* 汎用メソッド
    '* 
    '***************************************************************************************

    ''' <summary>
    ''' 文字列存在チェック
    ''' </summary>
    ''' <param name="checkText"></param>
    ''' <param name="targetTexts"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function isInStr(ByVal checkText As String, ByVal ParamArray targetTexts() As String) As Boolean
        If targetTexts.Length = 0 Then
            Return False
        End If
        Dim i As Integer
        For i = 0 To targetTexts.Length - 1
            If checkText = targetTexts(i) Then Exit For
        Next
        If i > targetTexts.Length - 1 Then
            Return False
        Else
            Return True
        End If

    End Function

    ''' <summary>
    ''' 36進数を10進数に変換
    ''' </summary>
    ''' <param name="Str"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function From36To10(ByVal Str As String) As Long
        Dim returnVlaue As Long = 0
        If Str.Length > 0 Then
            Dim StrLen As Integer = Str.Length - 1
            Dim targetString() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
            Dim i As Integer
            Dim j As Integer
            Dim midValue As String
            For i = 0 To StrLen
                midValue = Mid(Str, i + 1, 1)

                If midValue <> "0" Then
                    For j = 0 To targetString.Length - 1
                        If midValue = targetString(j) Then Exit For
                    Next
                    If j > targetString.Length - 1 Then
                        Return 0
                    End If
                    returnVlaue = returnVlaue + (j * (36 ^ (StrLen - i)))
                End If
            Next
        End If
        Return returnVlaue
    End Function

    ''' <summary>
    ''' 62進数を10進数に変換
    ''' </summary>
    ''' <param name="Str"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function From62To10(ByVal Str As String) As Long
        Dim returnVlaue As Long = 0
        If Str.Length > 0 Then
            Dim StrLen As Integer = Str.Length - 1
            Dim targetString() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
            Dim i As Integer
            Dim j As Integer
            Dim midValue As String
            For i = 0 To StrLen
                midValue = Mid(Str, i + 1, 1)

                If midValue <> "0" Then
                    For j = 0 To targetString.Length - 1
                        If midValue = targetString(j) Then Exit For
                    Next
                    If j > targetString.Length - 1 Then
                        Return 0
                    End If
                    returnVlaue = returnVlaue + (j * (62 ^ (StrLen - i)))
                End If
            Next
        End If
        Return returnVlaue
    End Function

    Private Const From10To36_SanRT As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    ''' <summary>
    ''' 10進数を36進数に変換
    ''' </summary>
    ''' <param name="Num"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function From10To36(ByVal Num As Long) As String
        Dim returnValue As String = ""
        If Num <= 0 Then
            returnValue = "0"
            Return returnValue
        End If
        Dim SanRJ As Long
        Dim SanRI As Long

        For SanRJ = 5 To 0 Step -1
            SanRI = Num \ 36 ^ SanRJ
            Num = Num - SanRI * 36 ^ SanRJ
            returnValue = returnValue & Mid(From10To36_SanRT, SanRI + 1, 1)
        Next

        For SanRJ = 1 To Len(returnValue)
            If Mid(returnValue, SanRJ, 1) <> "0" Then Exit For
        Next
        returnValue = Mid(returnValue, SanRJ)
        Return returnValue
    End Function

    Private Const From10To62_SanRT As String = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    ''' <summary>
    ''' 10進数を62進数に変換
    ''' </summary>
    ''' <param name="Num"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function From10To62(ByVal Num As Long) As String
        Dim returnValue As String = ""
        If Num <= 0 Then
            returnValue = "0"
            Return returnValue
        End If
        Dim SanRJ As Long
        Dim SanRI As Long

        For SanRJ = 5 To 0 Step -1
            SanRI = Num \ 62 ^ SanRJ
            Num = Num - SanRI * 62 ^ SanRJ
            returnValue = returnValue & Mid(From10To62_SanRT, SanRI + 1, 1)
        Next

        For SanRJ = 1 To Len(returnValue)
            If Mid(returnValue, SanRJ, 1) <> "0" Then Exit For
        Next
        returnValue = Mid(returnValue, SanRJ)
        Return returnValue
    End Function

    ''' <summary>
    ''' 切り上げ
    ''' </summary>
    ''' <param name="dValue"></param>
    ''' <param name="iDigits"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function ToRoundUp(ByVal dValue As Double, ByVal iDigits As Integer) As Double

        If dValue = 0 Then
            Return 0
        End If
        Dim dCoef As Double = System.Math.Pow(10, iDigits)

        If dValue > 0 Then
            Return System.Math.Ceiling(dValue * dCoef) / dCoef
        Else
            Return System.Math.Floor(dValue * dCoef) / dCoef
        End If
    End Function

    ''' <summary>
    ''' 対象のメッセージを部分置換する
    ''' 本文の「$n」をreplaceTextsの順に置換
    ''' </summary>
    ''' <param name="msg">本文</param>
    ''' <param name="replaceTexts">置換用文字</param>
    ''' <returns>置換後の本文</returns>
    ''' <remarks></remarks>
    Public Shared Function msgFormat(ByVal msg As String, ByVal ParamArray replaceTexts() As String) As String
        Dim returnValue As String = msg
        Dim i As Integer

        For i = 0 To replaceTexts.Length - 1
            Dim target As String = "$" & i + 1
            returnValue = returnValue.Replace(target, replaceTexts(i))
        Next

        Return returnValue
    End Function


    '***************************************************************************************
    '* 
    '* 構造体
    '* 
    '***************************************************************************************

    ''' <summary>
    ''' 出荷指示に含まれる注文情報（行単位）
    ''' </summary>
    ''' <remarks></remarks>
    Public Structure strctRowData
        Public RowNum As String
        Public ActionBoxCount As Integer
        Public OrderBarCd As String
        Public IsSend As Integer
        Public ActionData() As strctActionData
    End Structure
    ''' <summary>
    ''' 出荷指示書に含まれる注文情報に含まれるラベル情報（箱単位）
    ''' </summary>
    ''' <remarks></remarks>
    Public Structure strctActionData
        Public OrderCd As String
        Public SysItemCd As String
        Public InBoxQty As Integer
        Public IsFullBox As Boolean
        Public GroupCd As String
        Public ReadText As String
        Public LabelRnk As String
        Public LabelType As Integer
        Public EmpCd As String
        Public ReadDateTime As Date
        Public IsSend As Integer
    End Structure
End Class
